-- $Id: xpa.adb,v 1.4 2005-12-06 15:09:49 bacon Exp $

with system.wch_con;

package body xpa is

	procedure set_default_wcem is
		package wch_con renames system.wch_con;
		wc_encoding: standard.character;
		pragma import (c, wc_encoding, "__gl_wc_encoding");
	begin
		for x in wch_con.wc_encoding_method loop
			if wc_encoding = wch_con.wc_encoding_letters(x) then
				default_wcem := x;
				return;
			end if;
		end loop;

		default_wcem := wch_con.WCEM_UTF8;
	end set_default_wcem;

begin
	set_default_wcem;
end xpa;

